
   1 .
   2 . DIAMONDS
   3 . BY ROBERT ROSENHOUSE
   4 . SUPER SOFTWARE
   5 .
  10 CLEAR ;B=24;C=25;D=30
  20 FOR T=1TO DSTEP 2;X=RND (68);Y=RND (27);@(T)=X;@(T+1)=Y
  30 FOR A=1TO BSTEP 2;BOX X,Y,A,C-A,3;NEXT A
  40 FOR A=1TO BSTEP 2;BOX -X,Y,A,C-A,3;NEXT A
  50 FOR A=1TO BSTEP 2;BOX -X,-Y,A,C-A,3;NEXT A
  60 FOR A=1TO BSTEP 2;BOX X,-Y,A,C-A,3;NEXT A
  70 IF RND (7)=1BC=RND (256);FC=BC+4+8×RND (32)
  80 NEXT T
  90 FOR T=1TO DSTEP 2;FOR A=1TO BSTEP 2
 100 BOX @(T),@(T+1),A,C-A,3;BOX -@(T),@(T+1),A,C-A,3;BOX -@(T),-@(T+1),A,C-A,3;BOX @(T),-@(T+1),A,C-A,3
 110 NEXT A;NEXT T;RUN 

:RETURN 
>
